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« ASSEM 



„r.^^r^^H that I have b«en including some Assembly 
I a« sur« that you .^^^i^'^eJ o^ this newslettT. or« I go 

Language routines in the past an A/L programmer! ^hm 

any further, I must P°^"*^ • J^*^ bi^ copied fro«^ another source 

routines that I have included My purpose in including 

or were a close Imitation orso«|eone^^ work My P^ P^^ ^^.^ 

these A/L routines meetings if 

very powerful language. I discovered that in most 

anyone had experimented mth these programs, x ui 

ca*es» n° given the« a try. 

A possi .1 e cause^f or t.i.^re^ta.ce - .-P^-^-e -^^^Hi l ^us; 

lack of r?r^ "\ftTto r^^?^y ?hi» situation. If you wi 11 take 

the rest of this issue to try to '^^^^^^^J'"* ^^^^^ examples, I tlvi^k that 
the time to follow along with me through the^^^ 

we can take some of the mystery "^^J^^^^ and asse^D g 

ClUOte the TI- Writer manual: "Let s do it. . 



t FIRST 



- *t3-t-H <-h»-- --e a few basic requir«B»ents. ¥our equip^.eot 

before we get started .n . _ -- - drive and 32K memory expansion, 

will have to include: at least because I will assume 

The TI ^--f ^j;/:f runne?^FarrSiiri*y Loader. I a. u.xng 

V^^^^i^ Proir^l 2: available fro^ our software library. 

Funnel web 

cartridge. 
ltemory»or 




T- s/nu will have to have some means of 1°^"^^"^,^^^ 

soJtwa^; For moii o^ you this will be the Extended. BASIC 
Ot^er pissibilT^ies include the CorComp disk controller, Mim 
the Editor Assembler cartridge. 



« TMF rnNCEPT » 



u/^ir Mhere vou can enter your code and then typ» 
Unlike P-'^^^ramming in^BASIC Where yo^^^^ ^^^^ 

"RUN" to see your program e..ecuT:e, m/i. code into machine 

th^^ode with an Editor^d^then you must c^ 

language with ^" f^'^^^e th^^^^^^^ Assembler generates is for the 

for you to read, while the code tna^ helpful ei^oT messages to 

computer to read. P^''^^^^^;"^^' when a or obi em is present. The only error 
help you to recede vour program^when^a^ro^^ ^.^embler 
messages you get with A/L are those xn ^ includes a Debugger 

Hhen it is assembling your code. ^^^_^;'^^^^?^^^^ly,e any program errors 

program to help the ®'-P®'; ^^"^-f^ . ri*»Kti«ri«i-' s use is beyond the scope 

not detected by the Assembler, but the detluQQ^r s use x> M^yw 

Qi this article 
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t A LOOK AT THE CODE \ 

Printed on the last two pages of this newsletter, you will -find a listing 
o-f an A/L program that we will be working with. I found this listing in 
an excellent book titled: ••LEARNING TI99/4A HOME COI^UTER ASSEMBLY 
LANGUAGE PROGRAMMING" by Ira McComic. Although this program is a bit long 
for an example, I decided to use it because it possibly could be useful 
for some of imm^ 

Now let's look at Jthe structure of the code. 



0030 SENDEL LI R10,>9100 TURN ON 

t 5 ! : \ \ 



» I • 

• • • 



COMMENT 



LINE S ! 5 i 

No ! ! 5 2nd OPERAND 



5 : i 



J ! — 1st OPERAND 

;■• , ■ , ■ ■ ' ■ -at.,.-/ ■ , 

I' t 

- ! — OPCODE 

— LABEL . ,-,--f .>-;v, .: 

LINE NO.: Not part of the program, I usually toggle the line no^'s. off 
with FCTN/zero. I included feh«lirie no' in the listing for reference 
only. Note: to get a copy of a listing with line numbers included (from 
the EDITOR), Print File (PF) then L PIQ. 

LABEL: Optional, not always required. Can be up to six characters long 
and the f i r st character must be alphabetic^ 

OPCODE: The actual Program instruction* Must be separated from the label 
by at least one space. 

OPERAND: The register or other address that the operates on- Must 

be separated from the OPCODE by at lea^t one space. One or two OPERANDS 
are allowed per program line, if two they mu^^t be separated by a comma. 



COMMENT: Optional, not part of the program. Used by the programmer to 
help ej^plain his program. Must be separated from the OPERAND field by at 
least olie comma. By placing an asterisk <^> am, tlte first character on a 
line the whole 1 ine becomes a comment • 
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^. 4.« rf..«i- a** the kevboard and enter the program listing -foufW* 

Now it*« tune to dust ott iswyuww *f zi*. Ko4--i-iar- Mh@n 

, ^ i„ 4^hi= newsletter. First turn on your system (it works better wnen 
later in this "^"^^^^^^J^; j punnelweb software. When the first ii»enu xs 
jm^md "P>f"^.^^"/ASSM and then EDITOR from the next menu. YOUT .IriV , 

displayed ••l;*=^:-^^]^2;^"^"''teKt editor will load. With the cursor on 
will run and a ^I-Wrxter typ-^te^^ ea ^^^^ 

the «=°W»and line, ^^1^^^ ^ *f «; ^ ^ tt.e Tab key (FCTN/7> 

change anything), ^^^^^^^ ^r^^l^n entering your code. At this ti«« you 

to jump to the P;^y®^,|*^^°^;!s^ Indicating that word wrap mode has 
should also notice the^holLow^CUrS^^ ^^^^ ^^^^ 

been ^^^^^iff;^ T^'^ Ano?herdx f f erence from the tl-Wrl€iir Editor is the 
one large paragrap^^ Another di true lbw*r c««« 

character set used. This t-oitor u ni^nce which Editor you are 

4.„.-= 1 i L'o TT-W does so vou can tell at a glance wnicn tuiuur y 
characters like TI *° use Save File to save your program, the extra 

using. Finally, when you u^«r included. To my knowledge 

baggage that Tl-Wr iter writ:es to disk is not inciuaea. / 

eyery^^^ng else is th« 

To aet out of the command line, press ENTER. We are now ^f^'^yj'^ *^^'' 
To get out °; ™ . *h^t the line number is displayed next to your 
typing our program Notice that t ^^^^^^ FCTN/zero, this is a 

cursor. ^ P'^^^®'^^°^^"'^"..„ tthe same keypress will turn the 

personal P-^--^^^^^^,;" "''„ake^°sare'^ th^ Alph^'^U^ i^ ctowrr and start 
numbers back on again). "J**^ ^ g sure to use the Tab Key 

entering the P'^°5''^/'^?f '^.^^ ^e^t ;ield and remember that Comments «r« 
(FCTN/7) to advance to tne next xicxw 
optionaa and fieed not be typed. 

Don't forget to save your program every few lines. 7^^^%^^ i^.^^^^^J^'^t^e 
von t: Tury . disk in the proper cirxve* To do /M^iSf enter tn^ 

you have a fresh „ then type SF for save file. Type in the 

command line by P'^«J»i^^^^^''^^l V'J^^ ^Ue name MORSE/S then press enter, 
correct drive number ™^ line (if you have a 

4.Kir^n 4- h ^ c=hoLild be done from the GOfl^^ ^'■^ ' . 

Another thing that shoul^d be d p.^^ter so you can check errors 

?"So ^iis ?ype PF ^or print File and then type in your printer n.«« <P*0 
or RS232.... . etc.) ? 

4.h= ^r^Hf:^ is entered correctly, save it to disk 
"Jol^n XSSSE/ST. "S^: ex^t th^'Li^Sr ^^Pressing FCTN/9 to get to the 
Jomm:;^!^^ ^^^^'^^ then E. ther. ENTER.^_^^^:^^ _ ^ 

^c;c;pMBLE yOUR CODg. 

\- T H<<=u i« in the drive from which it was 

waking sure the Funne^we^^^^ -enu- . Th^ 

originally loaded (it rememDers/ , sex memory. Once loaded, you 

...t-^^k to aive vou a suggested name for your uajetu xij.= ^ 

«ourc« file to give you cress ENTER twice until you get to LIST 

first two selections "^^^^^^^ to list your coded usually don't) 

DEVICE NAME. If /^^^/^^^'^^^rf uJnaL he.-e ahtl press ENTER, 

enter •ither your printer name or a disk ti wi 11 have to add a 

For those of you nho use PIO P^i?^^"^ y^Jdo not wish to list 

period (PIO.) to make things work correctly. ^ °"s°°_i i on . 

your code, just press ENTER to advance to the OPTIONS selection. 



QB MON I TOR - : QB— S 8 ' 

You will see two options listed (R and C) The R option is almost always 
used and should be selected here, it tells the Assenibler that your Source 
Code was entered using R to designate r«gi«t«r numbers. The C option will 
save your Object Code in a compressed format, saving disk space and 
decreasing loading time. I-f, however, your program will be loaded as a 
CALL LOAD, CALL LINK from Extended BASICi ytsu can't use the C option 
because XB will not load a compressed file. Other possible options are L 
(list), S (symbol table), and the undocumented T (text). L tells the- 
assembler that you want a listing directed to the device named above, S 
creates a symbol table following your listing, and T prints out the 
location and hex code for all the text strings in your code. For this 
example we will select the default R and C, Now start the assembly 
process by pressing PFtOC'D (FCTN/6> . 

r 

I-F everything went correctly, a^^ter the Assembler is finished, you will 
receive a message saying that there wer« fw errors. I-f errors were 
detected, the type of errors and the line number on which they occurred 
will be iistede To correct errors you must reenter the Editor, load the 
Source Code, correct it, resave it, return to the Assembler, and 
reassemble the code again. Depend in<g on your typing and proofreading 
skills, this could take several times. Now you see why people buy Ram 



Disk 



t IT^S TIME TO SEE IT RUN 



When you get your code assembled without errors it is time to run your 
program so you can admire your work. To do this first exit the Assembler 
by pressing ENTER. This will bring yclu to another menu where you can 
select LGDERS- This again will bring tip another menu where you will want 
to pick the LOAD/RUN (E/A) option. Once loaded from the Funnelweb disk, 
this loader will prompt you for a file name to load. Our file will be the 
object file that you just assembled (DSKn. MORSE) . If, however, you forgot 
your file name, Funnelweb comes to the rescue again. Any time you are not 
in one of the Editors, Funnelweb will allCM^ you to catalog your disk by 
pressing FCTN/7. You will be looking for a Display/Fixed 80 file to have 
the loader run for you. 

Now back to business, you are being prompted for a file name, type in 
DSKn. MORSE. Again you will be prompted for a file name (you can have more 
than one file in memory at once), just press ENTER. Now another nice 
feature of Funnelweb is on the screen. The E/A cartridge would prompt you 
for a Program name here and you would have to know the name of the entry 
point where you wanted the program to start running from (START in this 
case). Funnelweb goes one step further and reads the REF/DEF Table and 
displays the program entry points for you at the top of the screen. To 
start your program running, just use the arrow keys to place the cursor 
under the desired entry point (some programs have several) and press 
FCTN/6 (PRGC^D). 

At thi« point, your program will be running. Press any of the letter keys 
(with the Alpha Lock down) and you will hear the morse code for that 
keypress. When you want to exit the program, simply press ENTER and it 
will return you to the title screen. Congradulations ! you have entered, 
assembled and ran your first Assembly Language Program. You are now an 
Expert f 
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f>lAKE IT A UTQ RUN V- 

With minor changes we can change the original listing to «ak«^the prpgra^ 
autO««ricaUy run once loaded into memory. To do this load th. CM-iginal 
code into th« EDITOR afKl chABge line 0101 froros 

0101 END START 

Once this is done, save it to disk as DSKn.MQRSEl/S, then enter the 
Assembler and assemble it like before wsiT»g th^ 

Once assembled, this program should run sopn as it loads i"; JJ^^^ 
bypasses a -few keypresses and el iminate. the requirement for someone w^^ 
ii usina the E/A cartridge to know that the program entry point l» START. 
For program, with Points this would not be good practice 

but our program example is a natural for this technique. r included it 
here to show you that some A/L programs use a different procedure, to 

eXIICUte. ; -V--, ; ' . ■ 

^ LET'S MAKE IT RUN FROM X-BASIC - 

tn mv^^ o used to write 

routines t^t can be called from Extended BASIC. This will allow you to 
write mSst of your code in a language that most of us feel ^^comfortable 
wiih and reserve A/L code for those chores that require the increased 
speed or the special featured that A/L can offer. On the ^^l^^'r^^^'Jtll^ 
this procedure requires that you first load your XB program and then have 

it Toad^y^ur A/L. routines. This will add to the time -^-^"i^f ^^i°^^^ns 
nrogram to be up and runni ng . Now, however, even that drawback is 
his?ory, as there are now methods available that allow you to save your XB 
and A/L codes together in one file. The Load Program ,f """J^*^^^^**,^" 
example of this. In fact, Punnel web includes a utility (LE6/S) on the 
■clisk.,to do this for you. 

Let's alter our original Source Code WORSE/S) SO w^^^^^t^^ /ro«' 
ptrsJ we lust understand three facts of life about XB's Assembly ^anguage 
Loaderr F^rst it does not know how to handle, Ref's such as those found on _ 
line 0005. These routines must be equated to an address. A J VSt pf these 
Eauates can be found starting on page 415 of the E/A manual. Secondly, 
you are running an A/L routine from XB, you mu.t provxde a method of 
^ding >60 to any character that you wish to display on the screen. The 
chart found in last month's newsletter has a column where this ^o"^^;^;^"" 
Mas done for you. The program (MORSE/S) that we are working with no 
text or graphics displays so we are not concerned about this. Finally, 
Shen we IssSmble a routine that will be called from XB, we can't use the C 
(compressed) option because the XB loader will not load compressed files. 

Now let's do it! Once again load MORSE/S into the Editor. Remove line 
0OO5 (REF KSCAN,SOUND) with FCTN/3 <DEL_ LINE) and then ^Ins^^^^^^^^ 



aft^r the original line 8 (DOTIME EQU 4500) with the FCTN/8 key. On these 
twb inserted lines add Equates for KSCAN and SOUND as shown below. 
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% EQUATED VALUES 

DOT I ME EQU 4500 DELAY FOR DOT TONE 
KSCAN EQU >201C 
SOUND EQU >8400 

Save this altered -file as DSKn.M0RSE2/S and then assemble using only the R 
option. Since this -file was not saved as a compressed file, you might 
want to use FCTN/7 to catalog your data disk to see the difference in size 
between a compressed file and a non compressed file. 

The following XB program will call the above Object Code so it can run 

from the XB cartridge: ^ 

100 CALL CLEAR 

110 DISPLAY AT (lO, 1) : "loading A/L code" 
120 CALL INIT :: CALL LOAD ("DSKn. riORSE2" ) 

130 DISPLAY AT(10,l)s "depress ALPHA LOCK " s " PrjBSS any Letter Key" 
140 CALL LINK ( "START" ) 

The above XB program uses CALL INIT to initialize memory, then loads the 

assembly code with CALL LOAD, and starts it running with the CALL LINK 
Statement. When preparing this article I tried to get the A/L code to 
auto run once loaded like we did in the second exercise but L was. unable 

to do this. After a couple of phone calls I found out from Jerry Rowe 
that XB will not allow this unless you trick it by AORGing your A/L code 
into the ISR hook at >83C4 to get it started and then clearing out >83C4 
early in the program so it will not keep reloading itself every l/60th of 
a t,ecur.d. I tried thiB .rt.id it worlcrd but it sce/r.^d lik^ ai;3t of v;ork ju^st i 
to avoid using the CALL LINK statement. 

t ONE FINAL EXERCISE - 

Up until this point we have been using the Assembler to create DF-BO 
Object code files in either compressed or uncompressed format. With a few 
alterations to the original code and with the use of Funnel web's FW5AVE 
utility, we can create Program Image files. Program Image files are the 
most compact form of A/L code that the 99/4A supports. They are also the 
fastest loading files but they require a special loader. When using 
Funnel web, go to the Loaders menu, and you will find options 1 and 3 (TEXT 
MODE or PROGRAM) both of which will load Program Image files. Another 
loader came to us last week as Fairware from Paragon Computing. This 
loader called EA5L0AD, will load Program Image files from XB. 

As stated above. Program Image files are the most compact and the fastest 
loading of all TI files- They also will automatically start running once 
loaded. If a Program Image file is longer than 33 sectors it will be 
split up into two or more files. Every file after the first will have a 
name that ends with a character one ASCII code higher that the last 
character in the previous file (ED~->EE — >EF etc.). The utility that 
creates Program files from DF-80 files handles all this for you, I just 
mentioned it so you would understand what you are seeing on some disk 
catalogs. 
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Again, l#t's do It! Load HORSE/S into the Editor and make the first 10 
lines look like those b«low and then change the original line lOl to look 

like the last line listed below. Save this altered -file to disk as 
I)SKn.M0RSE3/S and then lo#d the As^sembler andi assemble it using the R and 

C OptlWHI» 

IDT 'MORSE' TRANSLATE CHARACTERS TO MORSE CODE : 

DEF SFIRST,5^AST 

t EXTERNAL REFERENCES ; 
REF KSCAN, SOUND 

» EQUATED VALUES ^^^^^^^^^^^^^ ^^^^^^^^^ ^ ^ ^ ^^^^^^^^^^^^^^^^^^ 

DOT I ME EQU 4500 DELAY FOR DOT TONE . 

t ■ ' ' ■ ■ - -.i---.' 

SFIRST LWPI WS INITIALIZE WORKSPACE 



SLAST END 

Nest back oat of the Assembler and go to the Loader menu. Select the 
Load /Run option and load DSKn.W0RSE3, THEN PRESS enter, nexf type 
DSKn.FWSAVE and press ENTER twice- Select SAVE as your entry point and 
+ olloiNi tt>« prompts. Wh^n done your file will have been converted to a 
Program Image -file and stored under the name that you selected. One© 
again you will want to catalog your data disk and see the size of thi» 
last fil© cof^jared to t^e previaus files* 

Next go to the Loader section of Funnelweb and load this last file with 
caption 3. Be sure to notice how fast it is loaded and that it start 
running as soon as it is loaded • 



, ; ; » SOME CLQSlMi TMQUGf lTS - ;^ 

Xl^is series of exercises ended up taking more space than 
anticipated^ In fact, this is one of the reasons that this newsletter is 
late getting to you- I feel that it wcHild be worthwhil#^^^^ all of you to 
take the time to run through these examples so that you will have some 
idea Of how things" work in Assembly* If you have any tr oubl e , let me know 
and I'll try to get you back on trafck* See you at ttve ne^ 
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,001 IDT 'MORSE' TRANSLATE CHARACTERS TO MORSE CODE 

)002 DEF START 

)003 * ' 

>004 « EXTERNAL REFERENCES 

)005 REF KSCAN, SOUND 

5006 * 

■)007 * EQUATED VALUES 

:)008 DOT I ME EQU 4500 DELAY FOR DOT TONE 

3009 * 

■)010 START LWPl WS INITIALIZE WORKSPACE 

DOll GETKEY SB il>8374, il>8374 SELECT ENTIRE KEYBOARD 

i)012 BLWP ei'.SCAN CHECK KEYBOARD 

0O13 MOVE e>837C,R0 READ KEYBOARD STSTUS 

r,014 COC HKEYMSK.RO CHECK KEYBOARD STATUS 

0O15 JNE GETKEY JUMP IF NO KEY YET 

on 16 MOVB e>a375,R0 KEY PRESSED, PUT ASCII CODE IN RO 

(-)017 AND I ROTFOO STRIP OFF PARITY BIT 

0018 CB RCaCHARA COMPARE CODE TO "A" 

0019 JL NALPHA JUMP IF NOT ALPHABETIC, MAY BE CR 

O(-)20 CB RCHCHARZ COMPARE TO "Z" ' 

0021 JH NOGOOD JUMP IF NOT ALPHABETIC 

0022 MOV R0,R3 COPY CHAR CODE TO R3 <LEFT BYTE) 
(-,(-,23 SWPB R3' PUT CHAR IN RIGHT BYTE 

0O24 AI R3,-65 SUBTRACT CODE FOR "A" = INDEX 

o<-)25 SLA R3^ 1 MULTIPLY INDEX BY 2 ^ . 

0026 ■ MOV i2MCTABL(R3) ,R4 GET TABLE ENTRY IN R4 

0027 MOV R4,R3 COPY TABLE ENTRY TO R3 

0028 SRL R3,3 RIGHT JUSTIFY ELEMENT COUNT 

002<9 . ' 

0030 SENDEL LI R10,>9100 TURN ON 

0031 MOVB RlO.eSOUND TONE 

0032 CLR R2 PUT ZERO IN R2 

0033 SRL R4,l SHIFT NEXT ELEMENT CODE INTO CARRY 

0034 JNC DOT JUMP IF DOT 

0035 AI R2,D0TIME*2 ADD DELAY FDR DASH , 
0036 

0037 DOT AI P2,D0TIME ADD DELAY FOR DOT 

0038 BL ilDELAY DELAY AND EMDTONE 

0039 LI R2,D0TIME GET INTER-ELEMENT DELAY TIME 

0040 BL ©DELAY DELAY AFTER ELEMENT 

00^1 DEC R3 DEINCPEMEMT ELEMENT COUMT 

(X)42 JNE SENDEL JUMP IF MORE ELEMENTS TO SEND 

(:»043 JMP GETKEY ELSE 60 GET ANOTHER CHARACTER 
0044 

0045 NALPHA CB RO,eCHARCR IS CHARACTER A CARRAGE RETURN? 

0046 JEQ EXIT IF SO, SO EXIT 

0047 NOGOOD LI R10,:F400 TURN ON 
00^8 MOVB RlO.iSSOUND NOISE 

0049 LI R2,D0TIME-»-2 SET DELAY TIME FOR NOISE 

0050 BL ilDELAY DELAY AND TURN OFF NOISE 

0051 JMP GETKEY GO GET NEXT CHARACTER 

0052 EXIT BLWP HO GO HOME 

0053 
0054 
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0055 
0056 
0057 
0058 
0059 
' >0 
0'.»6 1 
0062 
0063 
0064 
0065 



DELAY SRC R12, 15 
: : DEC R2 

JNE DELAY 

LI RIO, >9FFF 

MQVB R10,@S0UND 

SWPB RIO 

MQVB RlCeSQUND 

B tRlX 



KILL TIME 

DECREMENT DELAY TIME 

JUMP IF MORE DELAY 

TURN OFF 

TONE 

TURN OFF 

NOISE 

RETURN TO CALLER 



« 



DATA CONSTANTS 



0066 


KEYMSK 


DATA 


>2000 




0067 


CHARA 


TEXT 


'A' 




0068 


CHARZ 


TEXT 


' Z' 


L-» rr ri r\ u«LJivc 




CHARCR 


BYTE 


>OD 


CHAR CQOE 




t 










t TRANSALTIQN LOOK-UP 


TABLE 

9- 9 ~ "PW" "^^^w ^wi^ 














MCTABL 


DATA 


>0202 


' ']A« • 


0074 




DATA 


>0401 : 


B~ m m m 


0075 




DATA 


>0405 


C"" " m 


0076 




DATA 


>0301 


D» . 


0077 




DATA 


>0100 


E» • 


0078 




DATA 


>0404 


F" ~ • • *^ - , 


0079 




DATA 


>0303 


' Gas — 


0080 




DATA 


>0400 


H ~* « « ■ • 


008 1 




DATA 


>0200 


1= • • 


0082 




DATA 


>040E 




Www 




DATA 


>0305 








DATA 


>0402 




OCT 




DATA 


>0203 




J6 




DATA 


>0201 


N= -. 


0087 




DATA 


>0307 




0088 




DATA 


>0406 


P= .— . 


0089 




DATA 


>040B 


Q= — 


0090 




DATA 


>0302 


R* • 


0091 




DATA 


>0300 


S*~ • ■ • 


0092 




DATA 


>0101 


._T-.-^- 


0093 




DATA 


>0304 


U» . 


0094 


• 


DATA 


>0403 


V= . • 


0095 




DATA 


>0306 




0096 




DATA 


>0409 


X= 


0097 




DATA 


>040D 


Y= — 


0098 




DATA 


>0403 


z= — 


0099 










0 100 


WS 


BSS 


-:«"-> ■ r - -y- 


WORKSPACE 


oloi 




END 
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